home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / tex / td187src.lzh / DIVERSES.D < prev    next >
Text File  |  1991-12-14  |  1KB  |  47 lines
  1. DEFINITION MODULE Diverses;
  2.  
  3. FROM Types IMPORT Block;
  4.  
  5. PROCEDURE max(a, b : INTEGER) : INTEGER;
  6. PROCEDURE min(a, b : INTEGER) : INTEGER;
  7.  
  8. PROCEDURE round(real : LONGREAL) : INTEGER;
  9. (* Gerundeten Wert *)
  10.  
  11. PROCEDURE BlockIntersect(a, b : Block ; VAR bsect : Block) : BOOLEAN ;
  12. (* liefert in <bsect> die Schnittfläche von <a> und <b>,
  13.    desweiteren TRUE wenn Schnitt vorlag *)
  14.  
  15. VAR DialCentered : BOOLEAN ; (* Zentriert oder an Mousepos *)
  16.  
  17. PROCEDURE Alert (def: INTEGER; str: ARRAY OF CHAR): INTEGER;
  18. (* Alert via mtAlerts *)
  19.  
  20. PROCEDURE NumAlert (alertnum, def: INTEGER) : INTEGER;
  21. (* Alert via mtAlerts. Alertstr wird aus RSC-File gelesen. *)
  22.  
  23. PROCEDURE GetHelpText(num : INTEGER; VAR txt : ARRAY OF CHAR);
  24.  
  25. PROCEDURE GetFSelText(num : INTEGER; VAR txt : ARRAY OF CHAR);
  26.  
  27. PROCEDURE MouseOn;
  28. PROCEDURE MouseArrow;
  29. PROCEDURE MouseCursor;
  30. PROCEDURE MouseBusy;
  31. PROCEDURE MouseFinger;
  32. PROCEDURE MouseHand;
  33. PROCEDURE MouseThincross;
  34. PROCEDURE MouseThickcross;
  35. PROCEDURE MouseOutline;
  36. (* Diese Routinen schalten die Maus mit dem jeweiligen Bild EIN *)
  37.  
  38. PROCEDURE MouseOff;
  39. (* Schaltet die Maus AUS *)
  40.  
  41. PROCEDURE ForceMouseOff;
  42. PROCEDURE ForceMouseOn;
  43. (* Schaltet die Maus auf jeden Fall ein, egal wieviele
  44.    MouseOn/MouseOff gerade geschachtelt sind. *)
  45.  
  46. END Diverses.
  47.